%@ LANGUAGE="VBScript" %> <% Run=CStr(Request("run")) Set Connection = Server.CreateObject("ADODB.Connection") Connection.Mode = adModeRead Connection.Open phdb_rd SQLStmt = " select rs.run,rs.run_type,to_char(rs.run_date,'MM/DD/YYYY HH24:MI:SS') run_date, " SQLStmt = SQLStmt & " to_char(le.log_date,'MM/DD/YYYY HH24:MI:SS') crdate, " SQLStmt = SQLStmt & " ca.caltype,ca.calmethod,ca.calversion,ca.valid " SQLStmt = SQLStmt & " from phoffline.runs rs,phoffline.calibrations ca,phoffline.log_entries le " SQLStmt = SQLStmt & " where rs.run_date=ca.validity_date and le.logid=ca.logid " SQLStmt = SQLStmt & " and rs.run=" & CInt(run) & " " SQLStmt = SQLStmt & " order by le.log_date " ' response.write(SQLStmt) Set RS = Connection.Execute(SQLStmt) %>
Creation Date | CalType | CalMethod | CalVersion | Valid? |
<%= RS("crdate") %> | <%= RS("caltype") %> | <%=RS("calmethod") %> | <%=RS("calversion") %> | <%=RS("valid") %> | <% RS.MoveNext Loop %>